﻿'Digite o NameSpace: Babok
'Digite o nome da Classe de dominio: CenarioTeste

'--TESTE:-----------
'    <TestMethod()> _
'    Public Sub SalvarCenarioTeste()
'        Dim _CenarioTeste As CenarioTeste
'        _CenarioTeste = New CenarioTeste
'
'        _CenarioTeste.Salvar()
'
'        Assert.IsTrue(_CenarioTeste.Id.HasValue)
'    End Sub
<Serializable()> _
Public Class CenarioTeste
    Inherits BaseDominio

    Private _autor As Acesso.Usuario
    Public Overridable Property Autor() As Acesso.Usuario
        Get
            Return _autor
        End Get
        Set(ByVal value As Acesso.Usuario)
            _autor = value
        End Set
    End Property

#Region "Negocio"

    Public Sub New()
        MyBase.New()
    End Sub

    Public Overridable Function Buscar(ByVal _id As Long) As CenarioTeste
        Return MyBase.CenarioTesteDao.Buscar(_id)
    End Function

    Public Overridable Sub Salvar()
        MyBase.CenarioTesteDao.Salvar(Me)
    End Sub

#End Region

End Class

